home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / misc / emu / ATUtilities.lha / ATUtilities / BASIC / VGA.BAS < prev    next >
BASIC Source File  |  2000-09-26  |  865b  |  54 lines
  1. $INCLUDE "REGNAMES.INC"
  2. screen 12
  3.  
  4. rem buf$=string$(30000,chr$(0))
  5.  
  6. rem bufseg=STRSEG(buf$)
  7. rem bufofs=STRPTR(buf$)
  8.  
  9. rem for i=0 to 480 step 20
  10. rem line (0,i)-(640,i+20),rnd*15,bf
  11. rem next
  12.  
  13. for i=1 to 15
  14.  color i : print "VGA - CopyVideoToBuffer() und CopyBufferToVideo() - Test 1234567890 12345678"
  15. next
  16.  
  17. DEF SEG = &HA000
  18. o1=(32*640)/8
  19. o2=(240*640)/8
  20.  
  21. rem OUT &H3CE,&H105
  22.  
  23. rem
  24. rem AUFBAU:
  25. rem -----------------------------
  26. rem Port 3CE:
  27. rem  $$        $$
  28. rem  Wert      Register (1 bis 8)
  29. rem
  30.  
  31. g=0
  32. for i=0 to (80*640)/8
  33.  for j=0 to 1
  34.  
  35.   goto tt
  36.  
  37.   DEF SEG = &HA000
  38.   OUT &H3CE,(1*256)+&H04  : rem Plane=j
  39.   OUT &H3CE,&H0105        : rem Mode=0  (Read=0)
  40.   OUT &H3CE,&HFF08
  41.   POKE o1+i,&HFF
  42.  
  43.   tt:
  44.  
  45.   def seg = &Ha000
  46.   out &H3CE,&H0205
  47.   out &H3CE,&H0003
  48.   out &H3CE,&HFF08
  49.   poke o1+i,1+2+3+4
  50.  
  51.  next
  52. next
  53. end
  54.